< previous page page_441 next page >

Page 441
LISTING 19.2.CONTINUED
9f8044bafea36a1f728739c0bb58ef4c.gif
245: End Property
246:
247:
248: '##ModelId=352AB4E60280
249: Public Property Get pTblColumns() As Object
250: 'used when retrieving value of a property, on the right side of an   assignment.
251: 'Syntax: Debug.Print X.pTblColumns
252:     Set pTblColumns = mvarpTblColumns
253: End Property
254:
255:
256:
257: '##ModelId=352AB4E70352
258: Public Property Set pResultset(ByVal vData As Object)
259: 'used when assigning an Object to the property, on the left side of a   Set statement.
260: 'Syntax: Set x.pResultset = Form1
261:     Set mvarpResultset = vData
262: End Property
263:
264:
265: '##ModelId=352AB4E700F0
266: Public Property Get pResultset() As ADOR.Recordset
267: 'used when retrieving value of a property, on the right side of an   assignment.
268: 'Syntax: Debug.Print X.pResultset
269:     Set pResultset = mvarpResultset
270: End Property
271:
272:
273:
274: '##ModelId=352AB4EA0172
275: Public Property Let pPreviousSQL(ByVal vData As String)
276: 'used when assigning a value to the property, on the left side of an   assignment.
277: 'Syntax: X.pPreviousSQL = 5
278:     mvarpPreviousSQL = vData
279: End Property
280:
281:
282: '##ModelId=352AB4E90370
283: Public Property Get pPreviousSQL() As String
284: 'used when retrieving value of a property, on the right side of an   assignment.
285: 'Syntax: Debug.Print X.pPreviousSQL
286:     pPreviousSQL = mvarpPreviousSQL
287: End Property
288:
289:
continues

 
< previous page page_441 next page >

If you like this book, buy it!